home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / datatypes / mandt / source / classbase.i < prev    next >
Encoding:
Text File  |  1996-04-07  |  2.0 KB  |  83 lines
  1. ;
  2. ; $PROJECT: man.datatype
  3. ;
  4. ; $VER: classbase.i 39.1 (15.11.94)
  5. ;
  6. ; by
  7. ;
  8. ; Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  9. ;
  10. ; (C) Copyright 1994
  11. ; All Rights Reserved !
  12. ;
  13. ; $HISTORY:
  14. ;
  15. ; 15.11.94 : 039.001 :  initial
  16. ;
  17.  
  18.         IFND CLASSBASE_I
  19. CLASSBASE_I SET 1
  20.  
  21. ;-----------------------------------------------------------------------
  22.  
  23.         INCLUDE "exec/types.i"
  24.         INCLUDE "exec/libraries.i"
  25.         INCLUDE "exec/lists.i"
  26.         INCLUDE "exec/semaphores.i"
  27.         INCLUDE "utility/tagitem.i"
  28.  
  29.         INCLUDE "man_rev.i"
  30.  
  31. ;-----------------------------------------------------------------------
  32.  
  33.    STRUCTURE ClassBase,LIB_SIZE
  34.         UWORD   cb_UsageCnt
  35.         ULONG   cb_SysBase
  36.         ULONG   cb_DOSBase
  37.         ULONG   cb_IntuitionBase
  38.         ULONG   cb_GfxBase
  39.         ULONG   cb_UtilityBase
  40.         ULONG   cb_IFFParseBase
  41.         ULONG   cb_DataTypesBase
  42.         ULONG   cb_SuperClassBase
  43.         ULONG   cb_SegList
  44.         STRUCT  cb_Lock,SS_SIZE
  45.         ULONG   cb_Class
  46.    LABEL ClassBase_SIZEOF
  47.  
  48. ;-----------------------------------------------------------------------
  49. ; set here some defines for the generic classinit.asm module
  50. ; Note: that define a string using a equ is only working if the string
  51. ;       is larger than 4 characters (SAS asm) ! In this case it works,
  52. ;       because of the '.datatype' suffix !
  53.  
  54. DATATYPENAME   equ 'man.datatype'
  55. ENGINE         equ _ObtainManEngine
  56.  
  57.         XREF _ObtainManEngine
  58.  
  59. ;-----------------------------------------------------------------------
  60.  
  61.         LIBINIT
  62.  
  63.         LIBDEF  _LVODispatch
  64.  
  65. ;-----------------------------------------------------------------------
  66.  
  67. CALL MACRO <Function_Name>
  68.         xref _LVO\1
  69.         jsr _LVO\1(A6)
  70.      ENDM
  71.  
  72. ;-----------------------------------------------------------------------
  73.  
  74. GO   MACRO <Function_Name>
  75.         xref _LVO\1
  76.         jmp _LVO\1(A6)
  77.      ENDM
  78.  
  79. ;----------------------------------------------------------------------
  80.  
  81.         ENDC    ; CLASSBASE_I
  82.  
  83.